home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / QUI / UTI / Feature Flick v 1.5.sea / movie.r < prev    next >
Text File  |  1992-10-21  |  31KB  |  1,127 lines
  1. // "movie.r"
  2. //
  3. // -- using "SARez"    { v 3.2 }
  4.  
  5.  
  6.  
  7. // The new "Types.r" resource description file for System 7
  8. // adds an unsigned integer field to each of the following.
  9. // The added field pertains to window positioning:
  10. //
  11. //        type    'ALRT'
  12. //        type    'DLOG'
  13. //        type    'WIND'
  14.  
  15. #define    SystemSevenOrLater    true
  16. #define    oldTemp    true            /* "Somin" so I do NOT have to specify */
  17.                                 /*        0x0,        { wCSeed }           */
  18.                                 /*        0,            { wCReserved }     */
  19.                                 /* for every Color Table               */
  20.                                 /* ... but I wanna !!!    So sue me !!!  */
  21.  
  22. #ifndef    _TYPES_
  23. #include    "Types.r"
  24. #endif
  25.  
  26. #ifndef    _MACAPPTYPES_
  27. #include    "MacAppTypes.r"
  28. #endif
  29.  
  30. // #ifndef    _VIEWTYPES_
  31. // #include    "ViewTypes.r"
  32. // #endif
  33.  
  34. #ifndef    _BALLOONTYPES.R_
  35. #include    "BalloonTypes.r"
  36. #endif
  37.  
  38. #include    "TCLTypes.r"
  39.  
  40. #ifndef _H_Commands
  41. #include    "Commands.h"
  42. #endif
  43.  
  44. #ifndef _H_Constants
  45. #include    "Constants.h"
  46. #define        ALRT_Assert        ALRT_ExceptionAbort+1
  47. #endif
  48.  
  49. /* ----- standard TCL stuff ... ----- */
  50.  
  51. /* ALRTs & DITLs    (IDs: 128, 129, 150, 151, 200, 250->253, 300),
  52. ** scroll bar CNTL    (ID: 300),
  53. ** 2 Estr            (resNotFound = -192, memFullErr = -108),
  54. ** MBAR (ID = 1) which the TCL uses to form the Menu Bar &
  55. **               which includes the 1st three MENUs below,
  56. ** MENUs: Apple(1), File(2), Edit(3), Font(10), Size(11), Style(12)
  57. ** the grow SICN    (ID: 200),
  58. ** STRs        ("Save File As:"            = 150,
  59. **             "Mac OS Error Encountered"    = 300,
  60. **             "of a Mac OS Error"        = 301),
  61. ** STR#s    (Common                        = 128,
  62. **             Memory Warnings            = 129,
  63. **             Task Names                    = 130,
  64. **             Exceptions                    = 131,
  65. **             Dlg validation                = 133)
  66. ** WINDs    (Clipboard                    = 200,
  67. **             Starter window                = 500)                        */
  68.  
  69. include    "Starter.π.rsrc" not 'MENU';        // I'm gonna replace them below ...
  70.  
  71. /* ----- my stuff ... ----- */
  72.  
  73. include    "System 7";
  74. include    "MoofSND";
  75. include    "myPICTs";                    // Contains the following:
  76.                                     //        ID = 3000    ( Color Mac       )
  77.                                     //        ID = 3001    ( IACS Logo       )
  78.                                     //        ID = 3002    ( WAP Initials )
  79.                                     //        ID = 3003    ( QuickTime    )
  80. include    "Bill (B&W)";                /* Help Manager has problems with PICTs
  81.                                     **   in 'hfdr' resource that do NOT have
  82.                                     **   a rect whose topLeft = (0, 0).      */
  83. include "myCursors";                /* 1) color CuRSoRs:
  84.                                     **        a) Hand                (ID = 3004)
  85.                                     **        b) Check Mark        (ID = 3005)
  86.                                     **        c) Camera            (ID = 3006)
  87.                                     ** 2) B&W CURSors:
  88.                                     **        a) Hand                (ID = 3004)
  89.                                     **        b) Check Mark        (ID = 3005)
  90.                                     **        c) Camera            (ID = 3006)
  91.                                     ** 3) acurs + their associated CURSors:
  92.                                     **        a) Rotating Earth    (ID = 128)
  93.                                     **        b) DogCow            (ID = 129)     */
  94. // include "Mathematica";            // It's a surprise !!!
  95. include "QTIcons";                    // ICON + cicn for CDLOGPane (ID = 500)
  96. include "VCR Remote.rsrc";            /* ICONs + cicns for Remote Control:
  97.                                     **        (ID = 801 -> 816)            */
  98.  
  99.  
  100.  
  101. /* ----- Constants ----- */
  102.  
  103. #define    kVersID                0                    /* Finder stuff ... */
  104. #define    kTopStringID        2
  105. #define    kBottomStringID        1
  106. #define    kLocalID            0
  107. #define    kBNDL_ID            128
  108. #define    kFREF_ID            128
  109. #define    kICN_ID                128
  110. #define    mySicnRsrc            300                    /* rsrc ID */
  111. #define    mySicn                mySicnRsrc - 256    /* "About ..." Item Icon's # */
  112. #define    myIconRsrc            400                    /* rsrc ID */
  113. #define    myIcon                myIconRsrc - 256    /* "Quit" Item Icon's # */
  114. #define myIconRsrc2            500
  115. #define    myIcon2                myIconRsrc2 - 256    /* "QuickTime" Item Icon's # */
  116. //
  117. #define    kMAC                3000
  118. #define    kWAP                3002
  119. #define    kBragWindowID        999
  120. #define    kSystem7            777                    /* ID of "System 7" PICT */
  121. #define    kMeter                111
  122. #define    kSelectFrames        3000                /* My DLOGs */
  123. #define    kGoToFrame            3001
  124.  
  125.  
  126.  
  127. type    'JÅ£3'    {                            /* TYPE = Signature */
  128.     pstring;
  129. };
  130.  
  131. /* ---------- */
  132.  
  133. type    'vers'    {
  134.     byte        defaultVersion = 1;            /* version            */
  135.     byte        defaultRevision = 5;        /* revision           */
  136.     byte        defaultRevStage = 128;        /* revStage           */
  137.     byte        defaultBuildNbr = 2;        /* buildNbr           */
  138.     integer        defaultLang = 0;            /* languageInt        */
  139.     pstring;                                /* abbreviated string */
  140.     align    word;
  141.     pstring;
  142. };
  143.  
  144. /////////////////////
  145.  
  146. resource    'JÅ£3'    (kVersID, "Version", purgeable)    {
  147.     "Feature Flick {v 1.5}"
  148. };
  149.  
  150. resource    'BNDL'    (kBNDL_ID, purgeable)    {
  151.     'JÅ£3',                                /* Signature  */
  152.     kVersID,
  153.     { 
  154.         'FREF',
  155.         {
  156.             kLocalID, kICN_ID;            /* Local, Actual ID(s) */
  157.         };
  158.  
  159.         'ICN#',
  160.         {
  161.             kLocalID, kICN_ID;
  162.         };
  163.     };
  164. };
  165.     
  166. resource    'FREF'    (kFREF_ID, "Application", purgeable)    {
  167.     'APPL',
  168.     kLocalID,
  169.     "Feature Flick"
  170. };
  171.  
  172. resource    'ICN#'    (kICN_ID, "IACS", purgeable)    {
  173.     {    /* Data */
  174.         $"00000000 00000000 6040FC7E 60E0FC7E"
  175.         $"61B0C060 6318C060 6318C060 6318C060"
  176.         $"6318C060 6318C060 6318C060 6318C060"
  177.         $"63F8C07E 63F8C07E 6318C006 6318C006"
  178.         $"6318C006 6318C006 6318C006 6318C006"
  179.         $"6318C006 6318C006 6318C006 6318FC7E"
  180.         $"6318FC7E 00000000 00000000 00000000"
  181.         $"7FFFFFFE 7FFFFFFE 00000000 00000000";
  182.  
  183.         /* Mask */
  184.         $"FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF"
  185.         $"FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF"
  186.         $"FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF"
  187.         $"FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF"
  188.         $"FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF"
  189.         $"FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF"
  190.         $"FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF"
  191.         $"FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF";
  192.     };
  193. };
  194.  
  195. resource    'vers'    (kTopStringID, purgeable)    {
  196.     defaultVersion,
  197.     defaultRevision,
  198.     defaultRevStage,
  199.     defaultBuildNbr,
  200.     defaultLang,
  201.     "©92",
  202.     "©1992   I•A•C•S Software"
  203. };
  204.  
  205. resource    'vers'    (kBottomStringID, purgeable)    {
  206.     defaultVersion, defaultRevision, defaultRevStage,defaultBuildNbr, defaultLang,
  207.     "1.5",
  208.     "1.5 ... in color too, folks !!"
  209. };
  210.  
  211. resource    'SIZE'    (-1, purgeable)        {
  212.     dontSaveScreen,
  213.     acceptSuspendResumeEvents,
  214.     enableOptionSwitch,
  215.     canBackground,
  216.     multiFinderAware,
  217.     backgroundAndForeground,
  218.     dontGetFrontClicks,                /* ... when suspended */
  219.     ignoreChildDiedEvents,
  220.     not32BitCompatible,
  221.     isHighLevelEventAware,
  222.     onlyLocalHLEvents,
  223.     notStationeryAware,
  224.     dontUseTextEditServices,
  225.     reserved,
  226.     reserved,
  227.     reserved,
  228.     1500*1024,
  229.     1500*1024
  230. };
  231.  
  232. /////////////////////
  233.  
  234. resource    'SICN'  (mySicnRsrc, "IACS", purgeable) {
  235.     {
  236.         $"FFFF"
  237.         $"FFFF"
  238.         $"B311"
  239.         $"AD77"
  240.         $"AD77"
  241.         $"AD77"
  242.         $"AD77"
  243.         $"AD77"
  244.         $"A171"
  245.         $"AD7D"
  246.         $"AD7D"
  247.         $"AD7D"
  248.         $"AD7D"
  249.         $"AD11"
  250.         $"FFFF"
  251.         $"FFFF"
  252.     };
  253. };
  254.  
  255. /////////////////////
  256.  
  257. resource    'cicn'    (myIconRsrc, "Face", purgeable)    {
  258.     // *
  259.     // ********** IconPMap **********
  260.     // *
  261.     // $00000000        /* fill long = pBaseAddr                   */
  262.     // unsigned bitstring[1] = 1    pRowBytes = $8000 +
  263.     // unsigned bitstring[2] = 0
  264.     $0010,                /* pMapRowBytes = pixelSize * rowBytes(4) */
  265.     { 0, 0, 32, 32 },    /* bounds                                   */
  266.     0,                    /* pmVersion                               */
  267.     0,                    /* packType                               */
  268.     0,                    /* packSize                               */
  269.     $00480000,            /* hRes                                   */
  270.     $00480000,            /* vRes                                   */
  271.     chunky,                /* pixelType                               */
  272.     4,                    /* pixelSize                               */
  273.     1,                    /* cmpCount                               */
  274.     4,                    /* cmpSize = pixelSize                       */
  275.     0,                    /* planeBytes                               */
  276.     0,                    /* pmTable                                   */
  277.     // 00000000            /* fill long = pmReserved                   */
  278.     // *
  279.     // ********** IconMask **********
  280.     // *
  281.     // 00000000            /* fill long = mBaseAddr */
  282.     4,                    /* maskRowBytes          */
  283.     { 0, 0, 32, 32 },    /* mbounds                 */
  284.     // *
  285.     // ********** IconBMap **********
  286.     // *
  287.     // 00000000            /* fill long = 1BaseAddr */
  288.     4,                    /* iconBMapRowBytes         */
  289.     { 0, 0, 32, 32 },    /* 1bounds                 */
  290.     // *
  291.     // ********** IconData **********
  292.     // *
  293.     // 00000000            /* fill long = Placeholder for Handle. */
  294.     // *
  295.     // ********** MaskData **********
  296.     // *
  297.     // hex string [$$Word(maskRowBytes) * ($$BitField(Bounds, 32, 16) /*bottom*/ -
  298.     //                                       $$BitField(Bounds, 0, 16)  /*top*/      ]
  299.     $"00BFEF80 01BFBFC0 03FFFFE0 0EFFFFF0"
  300.     $"07FFFFF8 0FFFFFF0 0FFFFFF8 1FFFFFF8"
  301.     $"0FFFFFFC 3FFFFFFE 3FFFFFFE 1FFFFFFE"
  302.     $"7FFFFFFE 3FFFFFFC 7FFFFFFE 3FFFFFFE"
  303.     $"7FFFFFFE 1FFFFFFE 0FFFFFFE 1FFFFFFE"
  304.     $"0FFFFFFF 07FFFFF8 01FFFFF0 00FFFFC0"
  305.     $"00FFFEC0 00FFFFF8 01FFFFFF 03FFFFFF"
  306.     $"1FFFFFFE 7FFFFFE0 FFFFFFC0 01FFFF00",
  307.     // *
  308.     // ********** BMapData **********
  309.     // *
  310.     // hex string [$$Word(iconBMapRowBytes) * ($$BitField(Bounds, 32, 16) /*bottom*/ -
  311.     //                                              $$BitField(Bounds, 0, 16)  /*top*/    ]
  312.     $"0017C300 00BFAF80 01B7FFC0 06EFB7E0"
  313.     $"03F73AF0 07D40960 05C20330 0FA00230"
  314.     $"07800138 1D8001FC 178000DC 0F8000FC"
  315.     $"3FBA2F6C 1BBDDC88 3B566A4C 190A1D4C"
  316.     $"3C024054 0C8640BC 07742E3C 0F034034"
  317.     $"058FF87A 029BECD0 009C1CA0 0043E080"
  318.     $"0061C280 00400070 0050044E 00C80861"
  319.     $"0783E060 18800040 20C000C0 00600300",
  320.     // *
  321.     // ********** PMapCTab **********
  322.     // *
  323.     0x0,                                    /* ictSeed */
  324.     0,                                        /* ictFlags */
  325.     // integer = $$Countof(ColorSpec) - 1    /* ctSize */
  326.     // *
  327.     // ********** startICT **********
  328.     // *
  329.     {
  330.         0, $FFFF, $FFFF, $FFFF;        /* white       */
  331.         1, $FFFF, $B95B, $AD15;        /* light flesh */
  332.         2, $FFFF, $8978, $70E4;        /* dark flesh  */
  333.         3, $DD6B, $08C2, $06A2;        /* red         */
  334.         4, $7EFF, $41F2, $22FD;        /* brown       */
  335.         5, $0000, $0000, $D400;        /* blue        */
  336.         6, $0000, $0000, $0000;        /* black       */
  337.     },
  338.     // *
  339.     // ********** endICT **********
  340.     // *
  341.     // ********** PMapData **********
  342.     // *
  343.     // hex string [$$BitField(pMapRowBytes, 0, 13) * 
  344.     //               ($$BitField(Bounds, 32, 16) /*bottom*/ -
  345.     //                $$BitField(Bounds, 0, 16)  /*top*/      ]
  346.     $"00000000 00060666 66000066 00000000"
  347.     $"00000000 60666666 60606666 60000000"
  348.     $"00000006 60660666 66666666 66000000"
  349.     $"00000660 66616666 61661666 66600000"
  350.     $"00000066 66661666 11666161 66660000"
  351.     $"00000666 66161611 11116116 16600000"
  352.     $"00000606 66111161 11111166 11660000"
  353.     $"00006666 61611111 11111161 11660000"
  354.     $"00000666 61111111 11111116 11666000"
  355.     $"00066606 61111111 11111116 66666600"
  356.     $"00060666 61111111 11111111 66166600"
  357.     $"00006666 61111111 11111111 66666600"
  358.     $"00666666 33333131 13333331 16616600"
  359.     $"00066163 41444313 34144413 61116000"
  360.     $"00666163 14141321 34414143 16116600"
  361.     $"00066113 11114321 31144413 16116600"
  362.     $"00666613 11111321 31111113 16160600"
  363.     $"00006611 33333121 13333331 61666600"
  364.     $"00000666 11111211 11111111 11666600"
  365.     $"00006666 11111122 12111111 11660600"
  366.     $"00000606 11112222 22222111 16666060"
  367.     $"00000060 11122122 22212211 66060000"
  368.     $"00000000 11122211 11122211 10600000"
  369.     $"00000000 01111122 22211111 10000000"
  370.     $"00000000 01111112 22111121 10000000"
  371.     $"00000000 02111111 11111211 55550000"
  372.     $"00000000 51121111 11112111 55555550"
  373.     $"00000005 51112111 11121111 55555550"
  374.     $"00005555 11111222 22111111 55555500"
  375.     $"00555555 55555555 55555555 55000000"
  376.     $"05555555 55555555 55555555 50000000"
  377.     $"00000000 55555555 55555550 00000000"
  378. };
  379.  
  380. /* ---------- */
  381.  
  382. // Mac SE-&-below-version for the above:
  383.  
  384. resource    'ICON'    (myIconRsrc, "Face", purgeable)    {
  385.     $"0017C300 00BFAF80 01B7FFC0 06EFB7E0 03F73AF0 07D40960 05C20330 0FA00230"
  386.     $"07800138 1D8001FC 178000DC 0F8000FC 3FBA2F6C 1BBDDC88 3B566A4C 190A1D4C"
  387.     $"3C024054 0C8640BC 07742E3C 0F034034 058FF87A 029BECD0 009C1CA0 0043E080"
  388.     $"0061C280 00400070 0050044E 00C80861 0783E060 18800040 20C000C0 00600300"
  389. };
  390.  
  391. /////////////////////
  392.  
  393. resource    'WIND'    (kSystem7, "System 7", purgeable)    {
  394.     {91, 206, 251, 306},
  395.     plainDBox,
  396.     visible,
  397.     nogoAway,
  398.     0x0,
  399.     "",                                /* NO title for this type */
  400.     centerMainScreen
  401. };
  402.  
  403. resource    'WIND'    (kBragWindowID, "Brag", purgeable)    {
  404.     {60, 40, 165, 415},                // Holds the "IACS" PICT.
  405.     altDBoxProc,
  406.     invisible,
  407.     nogoAway,
  408.     0x0,                            /* Refcon */
  409.     "",                                /* NO title for this type */
  410.     centerMainScreen
  411. };
  412.  
  413. resource    'WIND'    (kWAP, "Scroll", purgeable)    {
  414.     {60, 40, 165, 415},                // Holds the "WAP" PICT.
  415.     noGrowDocProc,
  416.     invisible,
  417.     nogoAway,
  418.     0x0,
  419.     "Spiffy, Ain’t It !*?*!",
  420.     centerMainScreen
  421. };
  422.  
  423. resource    'WIND'    (kMeter, "Meter", purgeable)    {
  424.     {60, 40, 130, 340},
  425.     rDocProc,
  426.     invisible,
  427.     nogoAway,
  428.     0x0,
  429.     "",
  430.     centerMainScreen
  431. };
  432.  
  433. /////////////////////
  434.  
  435. resource    'DLOG'    (kSelectFrames, "Select Frames", purgeable)        {
  436.     {40, 40, 288, 240},
  437.     rDocProc,
  438.     visible,
  439.     nogoAway,
  440.     0x0,
  441.     kSelectFrames,
  442.     "Select Frames",
  443.     centerMainScreen
  444. };
  445.  
  446. resource    'DITL'    (kSelectFrames, "Select Frames", purgeable)        {
  447.  
  448.     {    // Item Array:
  449.         /* [ 1] */    {208,  20, 228,  80},    Button        {enabled , "OK#100"            };
  450.         /* [ 2] */    {208, 120, 228, 180},    Button        {enabled , "Cancel#101"        };
  451.         /* [ 3] */    { 20,  20,  52,  52},    Icon        {disabled, myIconRsrc2        };
  452.         /* [ 4] */    { 80,  20, 100,  70},    StaticText    {disabled, "From:"            };
  453.         /* [ 5] */    { 80,  90, 100, 140},
  454.                     StaticText
  455.                     {enabled , "@#1#9999"  /* = overloaded CIntegerText field */    };
  456.         /* [ 6] */    {120,  20, 140,  70},    StaticText    {disabled, "To:"            };
  457.         /* [ 7] */    {120,  90, 140, 140},    StaticText    {enabled , "@#1#9999"        };
  458.         /* [ 8] */    {160,  25, 180, 175},    Button        {enabled ,
  459.                                                          "Select All  (\0x11-A)#23" };
  460.     };
  461.  
  462. };
  463.  
  464. resource    'DLOG'    (kGoToFrame, "Go To Frame", purgeable)        {
  465.     {40, 40, 192, 240},
  466.     rDocProc,
  467.     visible,
  468.     nogoAway,
  469.     0x0,
  470.     kGoToFrame,
  471.     "Go To Frame",
  472.     centerMainScreen
  473. };
  474.  
  475. resource    'DITL'    (kGoToFrame, "Go To Frame", purgeable)        {
  476.  
  477.     {
  478.         /* [ 1] */    {112,  20, 132,  80},    Button        {enabled , "OK#100"            };
  479.         /* [ 2] */    {112, 120, 132, 180},    Button        {enabled , "Cancel#101"        };
  480.         /* [ 3] */    { 20,  20,  52,  52},    Icon        {disabled, myIconRsrc2        };
  481.         /* [ 4] */    { 72,  75,  92, 125},    StaticText    {enabled , "@#1#9999"        };
  482.     };
  483.  
  484. };
  485.  
  486. include "Windoid";                // Special WDEF for Floating Windows.
  487. #define kWindoid    104
  488.  
  489. /* MDEF "jmp" sequence(s) for various Menus. By convention, each MDEF ID
  490. ** matches the ID of the Menu being torn off.  For this demo, we will
  491. ** tear-off ONLY one Menu and gBartender->IBartender will load it from
  492. ** my 'MBAR' resource.  Note also that for the sake of consistency I have
  493. ** made the associated WIND ID(s) also match the MENU ID(s).  After all,
  494. ** we could have more than one torn-off menu/window.                    */
  495.  
  496. #define kTearMenu    1000
  497. #define kMDEF        kTearMenu    // Apple reserves 0 -> 127.
  498. include "MDEFs";
  499. /* ----- */
  500. resource    'MENU'    (kTearMenu, "1st Floating Tearoff Menu", purgeable)        {
  501.     kTearMenu,
  502.     kTearMenu,        // By TCL convention, MDEF ID = Menu ID.
  503.     0x7FFFFFFF,
  504.     enabled,
  505.     "Tear off this hummer !!!",
  506.     {
  507.         // Item(s) drawn “on-the-fly” by MDEF’s DrawMenu method.
  508.     }
  509. };
  510.  
  511. resource    'WIND'    (kTearMenu, "1st Floating Tearoff Menu", purgeable)        {
  512.     {40,  40, 110, 112},
  513.     1668,                        // = 16*kWindoid + noGrowDocProc
  514.     invisible,
  515.     goAway,
  516.     0x0,
  517.     "",
  518.     noAutoCenter
  519. };
  520.  
  521. resource    'hrct'    (kTearMenu, "1st Floating Tearoff Menu", purgeable)        {
  522.  
  523.     HelpMgrVersion,
  524.     hmDefaultOptions,
  525.     0,                                            /* balloon definition function */
  526.     0,                                            /* variation code */
  527.     {
  528.         HMStringItem        /* just one pane */
  529.         {
  530.             { 0, 0 },                            /* hot tip, set by the TCL */
  531.             { 0, 0, 0, 0 },                        /* ditto for the hot rect  */
  532.             "This is my Tear-Off MENU.  Double click "
  533.             "here and watch the spiffy fireworks!!!"
  534.         }
  535.     }
  536. };
  537.  
  538. /////////////////////
  539.  
  540. #define kNotQuickTime    3003
  541.  
  542. resource    'DLOG'    (kNotQuickTime, "Shame On You", purgeable)    {
  543.  
  544.     {30, 30, 300, 279},                /* EXACT same size as PICT */
  545.     altDBoxProc,
  546.     invisible,
  547.     nogoAway,
  548.     0x0,                            /* Refcon */
  549.     kNotQuickTime,
  550.     "",                                /* NO title for this type */
  551.     centerMainScreen
  552.  
  553. };
  554.  
  555. resource    'DITL'    (kNotQuickTime, "Shame On You", purgeable)    {
  556.     {
  557.         /* [ 1] */
  558.         {0, 0, 270, 249},    Picture    {disabled, kNotQuickTime};
  559.     };
  560. };
  561.  
  562. resource    'dctb'    (kNotQuickTime, "Shame On You", purgeable)    {
  563.     0x0,                    // wCSeed
  564.     0,                        // wCReserved
  565.     {
  566.         // Text color = color of window's title.
  567.         // Hilite color = color of horizontal lines, close box and
  568.         //                grow box in title bar.
  569.         // Color of title bar = color around horizontal lines and
  570.         //                      the two boxes in the title bar.
  571.         //
  572.         // Please note that the ColorSpecs for wTextColor,
  573.         // wHiliteColor and wTitleBarColor are commented out
  574.         // because they do NOT apply to my particular DLOG!!
  575.  
  576.         wContentColor,    65535,  65535,  65535;        /* white */
  577.         wFrameColor,     65535,         0,         0;        /* red   */
  578.     //    wTextColor,     65535,  65535,  65535;        /* white */
  579.     //    wHiliteColor,    65535,  65535,  65535;        /* white */
  580.     //    wTitleBarColor, 65535,         0,         0;        /* red   */
  581.     }
  582. };
  583.  
  584. /////////////////////
  585.  
  586. #define mMovie        20
  587.  
  588. resource 'MBAR' (MBARapp, "MBAR", purgeable)    {
  589.     {    /* array MenuArray: 4 elements */
  590.         /* [1] */
  591.         mApple,
  592.         /* [2] */
  593.         mFile,
  594.         /* [3] */
  595.         mEdit,
  596.         /* [4] */
  597.         mMovie,
  598.         /* [5] */
  599.         kTearMenu
  600.     }
  601. };
  602.  
  603. resource    'MENU'    (mApple, "Apple", purgeable)    {
  604.     mApple,
  605.     textMenuProc,
  606.     0x7FFFFFFD,
  607.     enabled,
  608.     apple,
  609.     {
  610.     /* [ 1] */ "Read all about it, folks ...#256",
  611.                mySicn, "\0x1E", noMark, plain;
  612.     /* [ 2] */ "-", noIcon, noKey, noMark, plain;
  613.     }
  614. };
  615.  
  616. /* ----- */
  617.  
  618. resource    'MENU'    (mFile, "File", purgeable)    {
  619. // Where possible, use the standard Command Numbers provided by the TCL:
  620.     mFile,
  621.     textMenuProc,
  622.     0x7FFFF5ED,
  623.     enabled,
  624.     "File",
  625.     {
  626.     /* [ 1] */ "Making Progress ...#1024"    , noIcon , noKey, noMark, bold       ;
  627.     /* [ 2] */ "-"                           , noIcon , noKey, noMark, plain      ;
  628.     /* [ 3] */ "New Movie#2"                 , noIcon , "N"  , noMark, plain      ;
  629.     /* [ 4] */ "Let the cameras roll ...#3"  , myIcon2, "O"  , noMark, italic+bold;
  630.     /* [ 5] */ "-"                           , noIcon , noKey, noMark, plain      ;
  631.     /* [ 6] */ "Close Movie#4"               , noIcon , "W"  , noMark, plain      ;
  632.     /* [ 7] */ "Save Movie#5"                , noIcon , "S"  , noMark, plain      ;
  633.     /* [ 8] */ "Save Movie As...#6"          , noIcon , noKey, noMark, plain      ;
  634.     /* [ 9] */ "Revert to Saved Movie#7"     , noIcon , "`"  , noMark, plain      ;
  635.     /* [10] */ "-"                           , noIcon , noKey, noMark, plain      ;
  636.     /* [11] */ "Delete Movie ...#1025"       , noIcon , "D"  , noMark, bold       ;
  637.     /* [12] */ "-"                           , noIcon , noKey, noMark, plain      ;
  638.     /* [13] */ "Quit#1"                      , myIcon , "Q"  , noMark, italic     ;
  639.     }
  640. };
  641.  
  642. /* ----- */
  643.  
  644. resource    'MENU'    (mEdit, "Edit", purgeable)    {
  645.     mEdit,
  646.     textMenuProc,
  647.     0x7FFFFFBD,
  648.     enabled,
  649.     "Edit",
  650.     {
  651.     /* [ 1] */ "Nothing to Undo#16" , noIcon, "Z"  , noMark, plain ;
  652.     /* [ 2] */ "-"                  , noIcon, noKey, noMark, plain ;
  653.     /* [ 3] */ "Nothing to Cut#18"  , noIcon, "X"  , noMark, plain ;
  654.     /* [ 4] */ "Nothing to Copy#19" , noIcon, "C"  , noMark, plain ;
  655.     /* [ 5] */ "Nothing to Paste#20", noIcon, "V"  , noMark, plain ;
  656.     /* [ 6] */ "Nothing to Clear#21", noIcon, noKey, noMark, plain ;
  657.     /* [ 7] */ "-"                  , noIcon, noKey, noMark, plain ;
  658.     /* [ 8] */ "Show Clipboard#22"  , noIcon, noKey, noMark, italic;
  659.     }
  660. };
  661.  
  662. /* ----- */
  663.  
  664. resource    'MENU'    (mMovie, "Movie", purgeable)    {
  665.     mMovie,
  666.     textMenuProc,
  667.     0x7FFFFFDB,
  668.     enabled,
  669.     "Movie",
  670.     {
  671.     /* [ 1] */ "Play Movie Forward#1026"      , noIcon, noKey, noMark, plain;
  672.     /* [ 2] */ "Play Movie Backward#1027"     , noIcon, noKey, noMark, plain;
  673.     /* [ 3] */ "-"                            , noIcon, noKey, noMark, plain;
  674.     /* [ 4] */ "Go to Beginning of Movie#1028", noIcon, noKey, noMark, plain;
  675.     /* [ 5] */ "Go to End of Movie#1029"      , noIcon, noKey, noMark, plain;
  676.     /* [ 6] */ "-"                            , noIcon, noKey, noMark, plain;
  677.     /* [ 7] */ "Go to Frame Number ...#1030"  , noIcon, noKey, noMark, plain;
  678.     /* [ 8] */ "Select Frames ...#1031"       , noIcon, noKey, noMark, plain;
  679.     /* [ 9] */ "Deselect Frames#1032"         , noIcon, noKey, noMark, plain;
  680.     }
  681. };
  682.  
  683. /////////////////////   Balloon Help goodies ... /////////////////////
  684.  
  685. resource    'hfdr'    (kHMHelpID, "Finder help", purgeable)    {
  686.  
  687.     HelpMgrVersion,
  688.     hmDefaultOptions,
  689.     0,                            /* balloon definition function */
  690.     0,                            /* variation code */
  691.     {    /* HFdrArrays ... */
  692.         HMPictItem    {
  693.             999                    // Picture Resource ID
  694.                                 //        "Ain’t he cute?!*!?\n"
  695.                                 //        "   Courtesy of:\n"
  696.                                 //        "I•A•C•S Software",
  697.         };
  698.     };
  699.  
  700. };
  701.  
  702. /*--------*/
  703.  
  704. resource    'hmnu'    (kHMHelpMenuID, "my Help Menu item", purgeable)    {
  705.  
  706.     HelpMgrVersion,
  707.     hmDefaultOptions,
  708.     0,                            /* balloon definition function */
  709.     0,                            /* variation code */
  710.     HMSkipItem    {
  711.     /* no missing items */
  712.     },
  713.     /* NO Menu Title items for this special case. */
  714.     /* The Help Manager processes Balloons for    */
  715.     /* all the standard Help Menu items.          */
  716.     {    /* my added item */
  717.         HMStringItem    {
  718.             "Watch the spiffy fireworks !!!",    /* enabled */
  719.             "Item is dimmed.",
  720.             "Item is checked.",
  721.             ""                                    /* Item canNOT be otherwise marked. */
  722.         };
  723.     };            /* End of Menu Title + items */
  724.  
  725. };
  726.  
  727. /*--------*/
  728.  
  729. #define kRemoteHelp        5000
  730.  
  731. /* The TCL sets the hotRect to the icon's frame rectangle and
  732. ** the hotTip to the center point in the hotRect.  The TCL
  733. ** figures out the hotRect because you pass the topLeft of the
  734. ** CIconPane to IIconPane when you initialize the object.
  735. ** So, there's NO need to figure out the arithmetic for each
  736. ** help item.  However, I have provided a few examples below
  737. ** just for the sake of illustration.                            */
  738.  
  739. #define remoteHotTip            {0, 0}
  740. #define remoteHotRect            {0, 0, 0, 0}
  741.  
  742. resource    'hrct'    (kRemoteHelp, "Smart Remote", purgeable)    {
  743.  
  744.     HelpMgrVersion,
  745.     hmDefaultOptions,
  746.     0,                                            /* balloon definition function */
  747.     0,                                            /* variation code */
  748.     {
  749.         HMStringItem        /* 1 - light */
  750.         {
  751.             { 34, 21 },                            /* hot tip, set by the TCL */
  752.             { 18, 5, 50, 37 },                    /* ditto for hot rect       */
  753.             "Lights up when you press on one of the other Buttons"
  754.         },
  755.         HMStringItem        /* 2 - eject */
  756.         {
  757.             { 34, 57 },
  758.             { 18, 41, 50, 73 },
  759.             "Click here to close the Movie"
  760.         },
  761.         HMStringItem        /* 3 - load */
  762.         {
  763.             { 34, 93 },
  764.             { 18, 77, 50, 109 },
  765.             "Click here to open a Movie"
  766.         },
  767.         HMStringItem        /* 4 - power */
  768.         {
  769.             { 34, 129 },
  770.             { 18, 113, 50, 145 },
  771.             "Click here to quit “Feature Movie”"
  772.         },
  773.         HMStringItem        /* 5 - pause */
  774.         {
  775.             remoteHotTip,
  776.             remoteHotRect,        // topLeft = {80, 33}
  777.             "Click here to pause the Movie.  "
  778.             "Bell rings if you’re already paused."
  779.         },
  780.         HMStringItem        /* 6 - stop */
  781.         {
  782.             remoteHotTip,
  783.             remoteHotRect,        // topLeft = {80, 85}
  784.             "Click here to stop the Movie.  "
  785.             "Bell rings if you’re stopped already."
  786.         },
  787.         HMStringItem        /* 7 - play backward */
  788.         {
  789.             remoteHotTip,
  790.             remoteHotRect,        // topLeft = {132, 33}
  791.             "Click here to play the Movie backward, starting at the end"
  792.         },
  793.         HMStringItem        /* 8 - play forward */
  794.         {
  795.             remoteHotTip,
  796.             remoteHotRect,        // topLeft = {132, 85}
  797.             "Click here to play the Movie forward, starting at the beginning"
  798.         },
  799.         HMStringItem        /* 9 - go to beginning */
  800.         {
  801.             remoteHotTip,
  802.             remoteHotRect,        // topLeft = {184, 5}
  803.             "Click here to go to the beginning of the Movie.  "
  804.             "Bell rings if you’re already at the beginning."
  805.         },
  806.         HMStringItem        /* 10 - step backward */
  807.         {
  808.             remoteHotTip,
  809.             remoteHotRect,        // topLeft = {184, 41}
  810.             "Click here to step backward until you release the Mouse.  "
  811.             "Bell rings when you reach the beginning of the Movie."
  812.         },
  813.         HMStringItem        /* 11 - step forward */
  814.         {
  815.             remoteHotTip,
  816.             remoteHotRect,        // topLeft = {184, 77}
  817.             "Click here to step forward until you release the Mouse.  "
  818.             "Bell rings when you reach the end of the Movie."
  819.         },
  820.         HMStringItem        /* 12 - go to end */
  821.         {
  822.             remoteHotTip,
  823.             remoteHotRect,        // topLeft = {184, 113}
  824.             "Click here to go to the end of the Movie.  "
  825.             "Bell rings if you’re already at the end."
  826.         },
  827.         HMStringItem        /* 13 - volume down */
  828.         {
  829.             remoteHotTip,
  830.             remoteHotRect,        // topLeft = {236, 33}
  831.             "Click here to turn the volume down until you release the Mouse.  "
  832.             "Bell rings if the Movie has no sound or "
  833.             "when you turn the Movie’s volume totally off."
  834.         },
  835.         HMStringItem        /* 14 - volume up */
  836.         {
  837.             remoteHotTip,
  838.             remoteHotRect,        // topLeft = {236, 85}
  839.             "Click here to turn the volume up until you release the Mouse.  "
  840.             "Bell rings if the Movie has no sound or "
  841.             "when you reach the Movie’s maximum volume."
  842.         },
  843.      /*
  844.         HMStringItem        // 15 - QuickTime cicn
  845.         {
  846.             remoteHotTip,
  847.             remoteHotRect,        // topLeft = {288, 59}
  848.             "This sub-Pane does NOT receive clicks "
  849.             "and, therefore, shows NO Balloon."
  850.         },
  851.      */
  852.         HMStringItem        /* itsMainPane */
  853.         {
  854.             remoteHotTip,
  855.             remoteHotRect,        // topLeft = {0, 0}
  856.             "Thanks to the pioneering work of Edgar Lee "
  857.             "from Macintosh Developer Technical Support"
  858.         }
  859.  
  860.     }    /* end of array of items */
  861.  
  862. };    /* end of remote's 'hrct' resource */
  863.  
  864. /////////////////////   QuickTime goodies ... /////////////////////
  865.  
  866. /* If an error occurs, call:
  867. **
  868. **        FailOSErr(err);
  869. **
  870. ** which then calls:
  871. **
  872. **        Failure(err, message = 0);
  873. **
  874. ** which via your TRY-CATCH-ENDTRY Macros propagates the error
  875. ** up to the TRY-CATCH-ENDTRY Handler within CApplication::Run().
  876. ** The latter's CATCH Handler will call:
  877. **
  878. **        if (gLastError != kSilentErr)
  879. **            ErrorAlert( gLastError, gLastMessage);
  880. **
  881. ** and then RETRY what you have in your TRY Handler.  Because
  882. ** FailOSErr passed a message = 0 to Failure, ErrorAlert will
  883. ** look for a 'Estr' resource with an ID = the passed error.    */
  884.  
  885.  
  886. resource    'Estr'    (-2000, "Movie Toolbox Error", purgeable)    {
  887.     "couldNotResolveDataRef"
  888. };
  889. resource    'Estr'    (-2001, "Movie Toolbox Error", purgeable)    {
  890.     "badImageDescription"
  891. };
  892. resource    'Estr'    (-2002, "Movie Toolbox Error", purgeable)    {
  893.     "badPublicMovieAtom"
  894. };
  895. resource    'Estr'    (-2003, "Movie Toolbox Error", purgeable)    {
  896.     "cantFindHandler"
  897. };
  898. resource    'Estr'    (-2004, "Movie Toolbox Error", purgeable)    {
  899.     "cantOpenHandler"
  900. };
  901. resource    'Estr'    (-2005, "Movie Toolbox Error", purgeable)    {
  902.     "badComponentType"
  903. };
  904. resource    'Estr'    (-2006, "Movie Toolbox Error", purgeable)    {
  905.     "noMediaHandler"
  906. };
  907. resource    'Estr'    (-2007, "Movie Toolbox Error", purgeable)    {
  908.     "noDataHandler"
  909. };
  910. resource    'Estr'    (-2008, "Movie Toolbox Error", purgeable)    {
  911.     "invalidMedia"
  912. };
  913. resource    'Estr'    (-2009, "Movie Toolbox Error", purgeable)    {
  914.     "invalidTrack"
  915. };
  916. resource    'Estr'    (-2010, "Movie Toolbox Error", purgeable)    {
  917.     "invalidMovie"
  918. };
  919. resource    'Estr'    (-2011, "Movie Toolbox Error", purgeable)    {
  920.     "invalidSampleTable"
  921. };
  922. resource    'Estr'    (-2012, "Movie Toolbox Error", purgeable)    {
  923.     "invalidDataRef"
  924. };
  925. resource    'Estr'    (-2013, "Movie Toolbox Error", purgeable)    {
  926.     "invalidHandler"
  927. };
  928. resource    'Estr'    (-2014, "Movie Toolbox Error", purgeable)    {
  929.     "invalidDuration"
  930. };
  931. resource    'Estr'    (-2015, "Movie Toolbox Error", purgeable)    {
  932.     "invalidTime"
  933. };
  934. resource    'Estr'    (-2016, "Movie Toolbox Error", purgeable)    {
  935.     "cantPutPublicMovieAtom"
  936. };
  937. resource    'Estr'    (-2017, "Movie Toolbox Error", purgeable)    {
  938.     "badEditList"
  939. };
  940. resource    'Estr'    (-2018, "Movie Toolbox Error", purgeable)    {
  941.     "mediaTypesDontMatch"
  942. };
  943. resource    'Estr'    (-2019, "Movie Toolbox Error", purgeable)    {
  944.     "progressProcAborted"
  945. };
  946.  
  947. resource    'Estr'    (-2020, "Movie Toolbox Error", purgeable)    {
  948.     "movieToolboxUnitialized"
  949. };
  950. resource    'Estr'    (-2021, "Movie Toolbox Error", purgeable)    {
  951.     "wfFileNotFound"
  952. };
  953. resource    'Estr'    (-2022, "Movie Toolbox Error", purgeable)    {
  954.     "cantCreateSingleForkFile"
  955. };
  956. resource    'Estr'    (-2023, "Movie Toolbox Error", purgeable)    {
  957.     "invalidEditState"
  958. };
  959. resource    'Estr'    (-2024, "Movie Toolbox Error", purgeable)    {
  960.     "nonMatchingEditState"
  961. };
  962. resource    'Estr'    (-2025, "Movie Toolbox Error", purgeable)    {
  963.     "staleEditState"
  964. };
  965. resource    'Estr'    (-2026, "Movie Toolbox Error", purgeable)    {
  966.     "userDataItemNotFound"
  967. };
  968. resource    'Estr'    (-2027, "Movie Toolbox Error", purgeable)    {
  969.     "maxSizeToGrowTooSmall"
  970. };
  971. resource    'Estr'    (-2028, "Movie Toolbox Error", purgeable)    {
  972.     "badTrackIndex"
  973. };
  974. resource    'Estr'    (-2029, "Movie Toolbox Error", purgeable)    {
  975.     "trackIDNotFound"
  976. };
  977. resource    'Estr'    (-2030, "Movie Toolbox Error", purgeable)    {
  978.     "trackNotInMovie"
  979. };
  980. resource    'Estr'    (-2031, "Movie Toolbox Error", purgeable)    {
  981.     "timeNotInTrack"
  982. };
  983. resource    'Estr'    (-2032, "Movie Toolbox Error", purgeable)    {
  984.     "timeNotInMedia"
  985. };
  986. resource    'Estr'    (-2033, "Movie Toolbox Error", purgeable)    {
  987.     "badEditIndex"
  988. };
  989. resource    'Estr'    (-2034, "Movie Toolbox Error", purgeable)    {
  990.     "internalQuickTimeError"
  991. };
  992. resource    'Estr'    (-2035, "Movie Toolbox Error", purgeable)    {
  993.     "cantEnableTrack"
  994. };
  995. resource    'Estr'    (-2036, "Movie Toolbox Error", purgeable)    {
  996.     "invalidRect"
  997. };
  998. resource    'Estr'    (-2037, "Movie Toolbox Error", purgeable)    {
  999.     "invalidSampleNum"
  1000. };
  1001. resource    'Estr'    (-2038, "Movie Toolbox Error", purgeable)    {
  1002.     "invalidChunkNum"
  1003. };
  1004. resource    'Estr'    (-2039, "Movie Toolbox Error", purgeable)    {
  1005.     "invalidSampleDescIndex"
  1006. };
  1007.  
  1008. resource    'Estr'    (-2040, "Movie Toolbox Error", purgeable)    {
  1009.     "invalidChunkCache"
  1010. };
  1011. resource    'Estr'    (-2041, "Movie Toolbox Error", purgeable)    {
  1012.     "invalidSampleDescription"
  1013. };
  1014. resource    'Estr'    (-2042, "Movie Toolbox Error", purgeable)    {
  1015.     "dataNotOpenForRead"
  1016. };
  1017. resource    'Estr'    (-2043, "Movie Toolbox Error", purgeable)    {
  1018.     "dataNotOpenForWrite"
  1019. };
  1020. resource    'Estr'    (-2044, "Movie Toolbox Error", purgeable)    {
  1021.     "dataAlreadyOpenForWrite"
  1022. };
  1023. resource    'Estr'    (-2045, "Movie Toolbox Error", purgeable)    {
  1024.     "dataAlreadyClosed"
  1025. };
  1026. resource    'Estr'    (-2046, "Movie Toolbox Error", purgeable)    {
  1027.     "endOfDataReached"
  1028. };
  1029. resource    'Estr'    (-2047, "Movie Toolbox Error", purgeable)    {
  1030.     "dataNoDataRef"
  1031. };
  1032. resource    'Estr'    (-2048, "Movie Toolbox Error", purgeable)    {
  1033.     "noMovieFound"
  1034. };
  1035. resource    'Estr'    (-2049, "Movie Toolbox Error", purgeable)    {
  1036.     "invalidDataRefContainer"
  1037. };
  1038. resource    'Estr'    (-2050, "Movie Toolbox Error", purgeable)    {
  1039.     "badDataRefIndex"
  1040. };
  1041. resource    'Estr'    (-2051, "Movie Toolbox Error", purgeable)    {
  1042.     "noDefaultDataRef"
  1043. };
  1044. resource    'Estr'    (-2052, "Movie Toolbox Error", purgeable)    {
  1045.     "couldNotUseAnExistingSample"
  1046. };
  1047. resource    'Estr'    (-2053, "Movie Toolbox Error", purgeable)    {
  1048.     "featureUnsupported"
  1049. };
  1050.  
  1051. /* ---------- */
  1052.  
  1053. resource    'Estr'    (-3000, "Component Manager Error", purgeable)    {
  1054.     "invalidComponentID"
  1055. };
  1056. resource    'Estr'    (-3001, "Component Manager Error", purgeable)    {
  1057.     "validInstancesExist"
  1058. };
  1059. resource    'Estr'    (-3002, "Component Manager Error", purgeable)    {
  1060.     "componentNotCaptured"
  1061. };
  1062. resource    'Estr'    (-3003, "Component Manager Error", purgeable)    {
  1063.     "componentDontRegister"
  1064. };
  1065.  
  1066. /* ---------- */
  1067.  
  1068. resource    'Estr'    (-9400, "QT Component Manager Error", purgeable)    {
  1069.     "noDeviceForChannel"
  1070. };
  1071. resource    'Estr'    (-9401, "QT Component Manager Error", purgeable)    {
  1072.     "grabTimeComplete"
  1073. };
  1074. resource    'Estr'    (-9402, "QT Component Manager Error", purgeable)    {
  1075.     "cantDoThatInCurrentMode"
  1076. };
  1077. resource    'Estr'    (-9403, "QT Component Manager Error", purgeable)    {
  1078.     "notEnoughMemoryToGrab"
  1079. };
  1080. resource    'Estr'    (-9404, "QT Component Manager Error", purgeable)    {
  1081.     "notEnoughDiskSpaceToGrab"
  1082. };
  1083. resource    'Estr'    (-9405, "QT Component Manager Error", purgeable)    {
  1084.     "couldntGetRequiredComponent"
  1085. };
  1086. resource    'Estr'    (-9406, "QT Component Manager Error", purgeable)    {
  1087.     "badSGChannel"
  1088. };
  1089. resource    'Estr'    (-9407, "QT Component Manager Error", purgeable)    {
  1090.     "seqGrabInfoNotAvailable"
  1091. };
  1092. resource    'Estr'    (-9408, "QT Component Manager Error", purgeable)    {
  1093.     "deviceCantMeetRequest"
  1094. };
  1095.  
  1096. /* ------------------
  1097. ** BIG TIME problems:
  1098. ** ------------------ */
  1099.  
  1100. #define kGeneralQuickTimeMemoryError    -9999
  1101.  
  1102. resource    'Estr'    (kGeneralQuickTimeMemoryError, "Memory Problems", purgeable)    {
  1103.     "of memory problems ... the Movie you’ve tried to open is "
  1104.     "too large.  Close an existing Movie OR choose another one."
  1105. };
  1106.  
  1107. ///// My Undo/Redo Task Names /////
  1108.  
  1109. #define    STRtaskNames    130
  1110.  
  1111. resource    'STR#'    (STRtaskNames, "Task Names", purgeable)        {
  1112.  
  1113.     {
  1114.         /* [ 1] */
  1115.         "Revert to Saved Movie",
  1116.         /* [ 2] */
  1117.         "Cut Movie",
  1118.         /* [ 3] */
  1119.         "Copy Movie",
  1120.         /* [ 4] */
  1121.         "Paste Movie",
  1122.         /* [ 5] */
  1123.         "Clear Movie"
  1124.     };
  1125.  
  1126. };
  1127.